home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / delete.avm < prev    next >
Encoding:
Text File  |  1994-06-24  |  1.2 KB  |  53 lines
  1. /* */
  2. parse arg mailbox logs
  3.  
  4. numlogs = words(logs)
  5.  
  6. do i = 1 to numlogs
  7.     call loadLogEntry(mailbox, word(logs, i))
  8.     address command 'delete >nil: <nil: quiet' logFile(mailbox, word(logs, i)) || "#?"
  9.     if (log.fileName ~= "" & (verify(log.fileName, '/:', 'M') = 0)) then 
  10.         address command 'delete >nil: <nil: quiet' voiceFile(mailbox, log.fileName) || "#?"
  11.  
  12.     if (log.altFileName ~= "" & (verify(log.altFileName, '/:', 'M') = 0)) then
  13.         address command 'delete >nil: <nil: quiet' voiceFile(mailbox, log.altFileName) || "#?"
  14.  
  15.     address rexx 'broadcast' 'deletefrommailbox' mailbox word(logs, i)
  16. end
  17.  
  18. exit
  19.  
  20. error:
  21.     exit
  22.  
  23. voiceFile: procedure
  24.     parse arg mailbox, magiccookie
  25.  
  26.         if (verify(magiccookie, '/:', 'M') = 0) then
  27.           return 'avm:' || mailbox || '/voices/' || magiccookie
  28.         else
  29.           return magiccookie
  30.  
  31. logFile: procedure
  32.     parse arg mailbox, magiccookie
  33.  
  34.     return 'avm:' || mailbox || '/logs/' || magiccookie
  35.  
  36. loadLogEntry: procedure expose log.
  37.     if arg() ~= 2 then do
  38.         rc = "loadLogEntry: bad args"
  39.         signal error
  40.     end
  41.     parse arg mailbox, handle
  42.  
  43.     call open(handle, logFile(mailbox, handle), 'r')
  44.     do while ~eof(handle)
  45.         line = readln(handle)
  46.         parse upper var line variable '=' value
  47.         log.variable = value
  48.     end
  49.     call close(handle)
  50.     return
  51.  
  52.  
  53.